home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS069.dsk / HOCKEY I.bas < prev    next >
BASIC Source File  |  2012-02-16  |  9KB  |  211 lines
  1. 1  HOME 
  2. 2  FOR I = 1 TO 30  STEP 2: HTAB I: PRINT "HOCKEY": FOR J = 1 TO 300: NEXT J: NEXT I
  3. 3  HOME : FOR X = 30 TO 22  STEP  -1: PRINT  TAB( X);"X X": NEXT X: PRINT  TAB( 21);"X XXX": PRINT  TAB( 20);"X   X": PRINT  TAB( 19);"XXX X"
  4. 4  FOR Y = 20 TO 13  STEP  -1: PRINT  TAB( Y);"X X": NEXT Y: PRINT  TAB( 12);"XX": PRINT  TAB( 11);"X"
  5. 5  PRINT  TAB( 10);"*"
  6. 6  FOR I = 1 TO 1000: NEXT I: HOME 
  7. 7  SPEED= 170
  8. 10  REM 
  9. 30 X = 1
  10. 40  PRINT : PRINT : PRINT 
  11. 50  PRINT "WOULD YOU LIKE THE INSTRUCTIONS?";: INPUT C$
  12. 55  PRINT 
  13. 60  IF C$ = "N"  THEN 90
  14. 65  IF C$ = "Y"  THEN 80
  15. 70  PRINT "USE 'Y' OR 'N'": GOTO 50
  16. 80  GOTO 1720
  17. 90  DIM A$(10),B$(10),H(25),T(5),T1(5),T2(5),T3(5)
  18. 100  PRINT "ENTER THE TWO TEAMS ";: INPUT A$(7),B$(7)
  19. 105  PRINT 
  20. 110  PRINT "ENTER THE NUMBER OF MINUTES IN A GAME ";: INPUT T6
  21. 115  PRINT 
  22. 120  IF T6 <1  THEN 110: PRINT 
  23. 130  PRINT "WOULD THE ";A$(7);" COACH ENTER HIS TEAM"
  24. 135  PRINT 
  25. 140  FOR I = 1 TO 6: PRINT "PLAYER ";I;: INPUT A$(I): NEXT I: PRINT 
  26. 150  PRINT "WOULD THE ";B$(7);" COACH DO THE SAME"
  27. 155  PRINT 
  28. 160  FOR T = 1 TO 6: PRINT "PLAYER ";T;: INPUT B$(T): NEXT T: PRINT 
  29. 170  PRINT " INPUT THE REFEREE FOR THIS GAME ";: INPUT R$
  30. 180  PRINT : PRINT  TAB( 10);A$(7);" STARTING LINEUP"
  31. 190  FOR T = 1 TO 6: PRINT A$(T): NEXT T
  32. 200  PRINT : PRINT  TAB( 10);B$(7);" STARTING LINEUP"
  33. 210  FOR T = 1 TO 6: PRINT B$(T): NEXT T: PRINT 
  34. 220  PRINT "WE'RE READY FOR TONIGHTS OPENING FACE-OFF"
  35. 230  PRINT R$;"WILL DROP THE PUCK BETWEEN ";A$(2);" AND ";B$(2)
  36. 240  FOR L = 1 TO T6: IF L = 1  THEN 260
  37. 250  PRINT "AND WE'RE READY FOR THE FACE-OFF"
  38. 260 C =  INT(2 * RND(1)) +1: ON C GOTO 270,280
  39. 270  PRINT A$(7);" HAS CONTROL OF THE PUCK": GOTO 290
  40. 280  PRINT B$(7);" HAS CONTROL"
  41. 290  PRINT "PASS ";: INPUT P: FOR N = 1 TO 3:H(N) = 0: NEXT N
  42. 300  IF P <0  THEN 290
  43. 305  IF P >3  THEN 290
  44. 310  FOR J = 1 TO (P +2)
  45. 320 H(J) =  INT(5 * RND(1)) +1
  46. 330  NEXT J: IF H(J -1) = H(J -2)  THEN 310
  47. 331  IF P +2 <3  THEN 350
  48. 335  IF H(J -1) = H(J -3)  THEN 310
  49. 340  IF H(J -2) = H(J -3)  THEN 310
  50. 350  IF P = 0  THEN 360
  51. 355  GOTO 490
  52. 360  GOTO 770
  53. 365  IF S >4  THEN 360
  54. 370  ON C GOTO 380,340
  55. 380  PRINT A$(H(J -1)):G = H(J -1):G1 = 0:G2 = 0
  56. 390  ON S GOTO 400,420,440,460
  57. 400  PRINT " LETS A BOOMER GO FROM THE RED LINE!!"
  58. 410 Z = 10: GOTO 890
  59. 420  PRINT " FLIPS A WRISTSHOT DOWN THE ICE"
  60. 440  PRINT " BACKHANDS ONE IN ON THE GOALTENDER"
  61. 450 Z = 25: GOTO 890
  62. 460  PRINT " SNAPS A LONG FLIP SHOT"
  63. 470 Z = 17: GOTO 890
  64. 480  PRINT B$(H(J -1));:G1 = 0:G2 = 0:G = H(J -1): GOTO 390
  65. 490  ON C GOTO 500,640
  66. 500  ON P GOTO 510,540,570
  67. 510  PRINT A$(H(J -2));" LEADS ";A$(H(J -1));" WITH A PERFECT PASS"
  68. 520  PRINT A$(H(J -1));" CUTTING IN!!!"
  69. 530 G = H(J -1):G1 = H(J -2):G2 = 0:Z1 = 3: GOTO 770
  70. 540  PRINT A$(H(J -2));" GIVES TO A STREAKING ";A$(H(J -1))
  71. 550  PRINT A$(H(J -3));" COMES DOWN ON ";B$(5);" AND ";B$(4)
  72. 560 G = H(J -3):G1 = H(J -1):G2 = H(J -2):Z1 = 2: GOTO 770
  73. 570  PRINT "OH MY GOD!! A '4 ON 2' SITUATION"
  74. 580  PRINT A$(H(J -3));" LEADS ";A$(H(J -2))
  75. 590  PRINT A$(H(J -2));" IS WHEELING THROUGH CENTER"
  76. 600  PRINT A$(H(J -2));" GIVES AND GOES WITH ";A$(H(J -1))
  77. 610  PRINT "PRETTY PASSING"
  78. 620  PRINT A$(H(J -1));" DROPS IT TO ";A$(H(J -4))
  79. 630 G = H(J -4):G1 = H(J -1):G2 = H(J -2):Z1 = 1: GOTO 770
  80. 640  ON P GOTO 650,670,720
  81. 650  PRINT B$(H(J -1));" HITS ";B$(H(J -2));" FLYING DOWN THE LEFT SIDE"
  82. 660 G = H(J -2):G1 = H(J -1):G2 = 0:Z1 = 3: GOTO 770
  83. 670  PRINT "IT'S A '3 ON 2'"
  84. 680  PRINT "ONLY ";A$(4);" AND ";A$(5);" ARE BACK"
  85. 690  PRINT B$(H(J -2));"GIVES OFF TO ";B$(H(J -1))
  86. 700  PRINT B$(H(J -1));" DROPS TO ";B$(H(J -3))
  87. 710 G = H(J -3):G1 = H(J -1):G2 = H(J -2):Z1 = 2: GOTO 770
  88. 720  PRINT "A '3 ON 2' WITH A 'TRAILER'"
  89. 730  PRINT B$(H(J -4));" GIVES TO ";B$(H(J -2));" WHO SHUFFLES IT OFF TO"
  90. 740  PRINT B$(H(J -1));" WHO FIRES A WING TO WING PASS TO "
  91. 750  PRINT B$(H(J -3));" AS HE CUTS IN ALONE!!"
  92. 760 G = H(J -3):G1 = H(J -1):G2 = H(J -2):Z1 = 1: GOTO 770
  93. 770  PRINT "SHOT ";: INPUT S: IF S >4  THEN 770
  94. 771  IF S <1  THEN 770
  95. 780  ON C GOTO 790,880
  96. 790  PRINT A$(G);: ON S GOTO 800,820,840,860
  97. 800  PRINT " LETS A BIG SLAP SHOT GO!!"
  98. 810 Z = 4:Z = Z +Z1: GOTO 890
  99. 820  PRINT " RIPS A WRIST SHOT OFF"
  100. 830 Z = 2:Z = Z +Z1: GOTO 890
  101. 840  PRINT " GETS A BACKHAND OFF"
  102. 850 Z = 3:Z = Z +Z1: GOTO 890
  103. 860  PRINT " SNAPS OFF A SNAP SHOT"
  104. 870 Z = 2:Z = Z +Z1: GOTO 890
  105. 880  PRINT B$(G);: ON S GOTO 800,820,840,860
  106. 890  PRINT "AREA ";: INPUT A: IF A <1  THEN 890
  107. 895  IF A >4  THEN 890
  108. 900  ON C GOTO 910,920
  109. 910 S2 = S2 +1: GOTO 930
  110. 920 S3 = S3 +1
  111. 930 A1 =  INT(4 * RND(1)) +1: IF A < >A1  THEN 1200
  112. 940 H(20) =  INT(100 * RND(1)) +1
  113. 950  IF  INT(H(20)/Z) = H(20)/Z  THEN 1160
  114. 960  ON C GOTO 970,980
  115. 970  PRINT "GOAL ";A$(7):H(9) = H(9) +1: GOTO 990
  116. 980  PRINT "SCORE ";B$(7):H(8) = H(8) +1
  117. 990  FOR B1 = 1 TO 25: PRINT  CHR$(7);: NEXT B1: PRINT 
  118. 1000  PRINT "SCORE: ";: IF H(8) >H(9)  THEN 1020
  119. 1010  PRINT A$(7);":";H(9),B$(7);":";H(8): GOTO 1030
  120. 1020  PRINT B$(7);":";H(8),A$(7);":";H(9)
  121. 1030  ON C GOTO 1040,1100
  122. 1040  PRINT "GOAL SCORED BY: ";A$(G): IF G1 = 0  THEN 1070
  123. 1050  IF G2 = 0  THEN 1080
  124. 1060  PRINT " ASSISTED BY:";A$(G1);" AND:";A$(G2): GOTO 1090
  125. 1070  PRINT " UNASSISTED": GOTO 1090
  126. 1080  PRINT " ASSISTED BY: ";A$(G1)
  127. 1090 T(G) = T(G) +1:T1(G1) = T1(G1) +1:T1(G2) = T1(G2) +1: GOTO 1540
  128. 1100  PRINT "GOAL SCORED BY: ";B$(G)
  129. 1110  IF G1 = 0  THEN 1130
  130. 1115  IF G2 = 0  THEN 1140
  131. 1120  PRINT " ASSISTED BY: ";B$(G1);" AND: ";B$(G2): GOTO 1150
  132. 1130  PRINT " UNASSISTED": GOTO 1150
  133. 1140  PRINT " ASSISTED BY: ";B$(G1): GOTO 1150
  134. 1150 T2(G) = T2(G) +1:T3(G1) = T3(G1) +1:T3(G2) = T3(G2) +1: GOTO 1540
  135. 1160 A2 =  INT(100 * RND(1)) +1: IF  INT(A2/4) = A2/4  THEN 1170
  136. 1165  GOTO 1200
  137. 1170  ON C GOTO 1180,1190
  138. 1180  PRINT "SAVE ";B$(6);" REBOUND": GOTO 940
  139. 1190  PRINT "SAVE ";A$(6);" FOLLOW UP": GOTO 940
  140. 1200 S1 =  INT(6 * RND(1)) +1
  141. 1210  ON C GOTO 1220,1380
  142. 1220  ON S1 GOTO 1230,1260,1290,1300,1330,1350
  143. 1230  PRINT "KICK SAVE AND A BEAUTY BY ";B$(6)
  144. 1240  PRINT "CLEARED OUT BY ";B$(3)
  145. 1250  GOTO 260
  146. 1260  PRINT "WHAT A SPECTACULAR GLOVE SAVE BY";B$(6)
  147. 1270  PRINT "AND ";B$(6);" GOLFS IT INTO THE CROWD"
  148. 1280  GOTO 1540
  149. 1290  PRINT "SKATE SAVE ON A LOW STEAMER BY ";B$(6): GOTO 260
  150. 1300  PRINT "PAD SAVE BY ";B$(6);" OFF THE STICK"
  151. 1310  PRINT "OF ";A$(G);" AND ";B$(6);" COVERS UP"
  152. 1320  GOTO 1540
  153. 1330  PRINT "WHISTLES ON OVER THE HEAD OF";B$(6)
  154. 1340  GOTO 260
  155. 1350  PRINT B$(6);" MAKES A FACE SAVE!! AND HE IS HURT"
  156. 1360  PRINT "THE DEFENSEMAN ";B$(5);" COVERS UP FOR HIM"
  157. 1370  GOTO 1540
  158. 1380  ON S1 GOTO 1390,1410,1440,1470,1490,1520
  159. 1390  PRINT "STICK SAVE BY ";A$(6)
  160. 1400  PRINT "AND CLEARED OUT BY ";A$(4): GOTO 260
  161. 1410  PRINT "OH MY GOD!! ";B$(G);" RATTLES ON OFF THE POST"
  162. 1420  PRINT "TO THE RIGHT OF ";A$(6);" AND "A$(6)" COVERS"
  163. 1430  PRINT "ON THE LOOSE PUCK!": GOTO 1450
  164. 1440  PRINT "SKATE SAVE BY ";A$(6)
  165. 1450  PRINT A$(6)" WHACKS THE LOOSE PUCK INTO THE STANDS"
  166. 1460  GOTO 1540
  167. 1470  PRINT "STICK SAVE BY ";A$(6);" AND HE CLEARS IT OUT HIMSELF"
  168. 1480  GOTO 260
  169. 1490  PRINT "KICKED OUT BY ";A$(6)
  170. 1500  PRINT "AND IT REBOUNDS ALL THE WAY TO CENTER ICE"
  171. 1510  GOTO 260
  172. 1520  PRINT "GLOVE SAVE ";A$(6);" AND HE HANGS ON"
  173. 1530  GOTO 1540
  174. 1540  NEXT L: FOR N = 1 TO 30: PRINT  CHR$(7);: NEXT N: PRINT "THAT'S THE SIREN"
  175. 1550  PRINT : PRINT  TAB( 15);"FINAL SCORE:"
  176. 1560  IF H(8) >H(9)  THEN 1580
  177. 1570  PRINT A$(7);":";H(9),B$(7);":";H(8): GOTO 1590
  178. 1580  PRINT B$(7);":";H(8),A$(7);":";H(9)
  179. 1590  PRINT : PRINT  TAB( 10);"SCORING SUMMARY": PRINT 
  180. 1600  PRINT  TAB( 25);A$(7)
  181. 1610  PRINT "NAME","GOALS","ASSISTS"
  182. 1620  PRINT "----","-----","-------"
  183. 1630  FOR I = 1 TO 5: PRINT A$(I),T(I),T1(I)
  184. 1640  NEXT I: PRINT 
  185. 1650  PRINT  TAB( 25);B$(7)
  186. 1660  PRINT "NAME","GOALS","ASSISTS"
  187. 1670  PRINT "----","-----","-------"
  188. 1680  FOR T = 1 TO 5: PRINT B$(T),T2(T),T3(T)
  189. 1690  NEXT T: PRINT 
  190. 1700  PRINT "SHOTS ON NET ": PRINT A$(7);":";S2: PRINT B$(7);":";S3
  191. 1710  END 
  192. 1720  PRINT : PRINT "THIS IS A SIMULATED HOCKEY GAME."
  193. 1730  PRINT "QUESTION      RESPONSE"
  194. 1740  PRINT "PASS          NUMBER OF PASSES YOU"
  195. 1750  PRINT "              WOULD LIKE TO MAKE"
  196. 1755  PRINT "              FROM 0 TO 3.
  197. 1760  PRINT "SHOT          1 FOR SLAPSHOT"
  198. 1770  PRINT "              2 FOR WRISTSHOT"
  199. 1780  PRINT "              3 FOR BACKHAND"
  200. 1790  PRINT "              4 FOR SNAP SHOT"
  201. 1800  PRINT "AREA          WHERE YOU WILL AIM"
  202. 1810  PRINT "              1 FOR UPPER LEFT CORNER"
  203. 1820  PRINT "              2 FOR UPPER RIGHT CORNER"
  204. 1830  PRINT "              3 FOR LOWER LEFT CORNER"
  205. 1840  PRINT "              4 FOR LOWER RIGHT CORNER"
  206. 1890  PRINT "AT THE START OF THE GAME,YOU WILL BE ASKED FOR THE NAMES OF YOUR PLAYERS.  THEY ARE ENTERED IN THE ORDER:"
  207. 1900  PRINT : PRINT "LEFT WING,CENTER,RIGHT WING,LEFT DEFENSE,RIGHT DEFENSE,GOALKEEPER
  208. 1910  PRINT : PRINT "ANY OTHER INPUT WILL HAVE EXPLANATORY INSTRUCTIONS."
  209. 1920  GOTO 90
  210. 1925  REM  DONATED BY KEVIN ARMSTRONG
  211. 1930  END